home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / DISPHELP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-01  |  4.3 KB  |  97 lines
  1. (*----------------------------------------------------------------------*)
  2. (*                Display_Help --- Display Command List                 *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Display_Help( FirstTime : BOOLEAN );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Display_Help                                         *)
  10. (*                                                                      *)
  11. (*     Purpose:    Displays Command List                                *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Display_Help( FirstTime : BOOLEAN );                          *)
  16. (*                                                                      *)
  17. (*           FirstTime --- TRUE for first call, else FALSE              *)
  18. (*                                                                      *)
  19. (*      Calls:   ClrScr                                                 *)
  20. (*               KeyPressed                                             *)
  21. (*               Async_Send                                             *)
  22. (*               Restore_Screen                                         *)
  23. (*               Save_Screen                                            *)
  24. (*               Draw_Menu_Frame                                        *)
  25. (*                                                                      *)
  26. (*----------------------------------------------------------------------*)
  27.  
  28. VAR
  29.    Ch: CHAR;
  30.  
  31. BEGIN (* Display_Help *)
  32.  
  33.                                    (* Tell host to stop sending *)
  34.  
  35.    Async_Send( CHR( XOFF ) );
  36.  
  37.                                    (* Save current screen image *)
  38.  
  39.    Save_Screen( Saved_Screen );
  40.  
  41.                                    (* Display help information  *)
  42.  
  43.    Draw_Menu_Frame( 2, 1, 78, 24, Menu_Frame_Color, Menu_Text_Color,
  44.                ' Available Commands ' );
  45.  
  46.    WRITELN('  Alt-A:  Edit line on screen');
  47.    WRITELN('  Alt-B:  Send Break                 Shift-Tab:  Toggle adding linefeeds');
  48.    WRITELN('  Alt-C:  Clear Screen               Alt-D:  Dial a number');
  49.  
  50.    WRITE  ('  Alt-E:  Toggle local echo');
  51.    IF Local_Echo THEN
  52.       WRITELN('(Currently ON)')
  53.    ELSE
  54.       WRITELN('(Currently OFF)');
  55.  
  56.    WRITELN('  Alt-F:  File manipulation          Alt-G:  Enter gossip mode');
  57.    WRITELN('  Alt-H:  Hang up the phone          Alt-I:  Produce this command list');
  58.    WRITELN('  Alt-J:  Jump to DOS                Alt-K:  Set function keys');
  59.    WRITELN('  Alt-L:  Log session to printer');
  60.    WRITE  ('  Alt-M:  Toggle Silent Mode ');
  61.    IF Silent_Mode THEN
  62.       WRITE('(Currently ON)')
  63.    ELSE
  64.       WRITE('(Currently OFF)');
  65.    WRITELN;
  66.    WRITELN('  Alt-N:  New comm. parameters       Alt-O:  Output session to disk');
  67.    WRITELN('  Alt-P:  Set parameters             Alt-Q:  Redial last number dialed');
  68.    WRITELN('  Alt-R:  Receive file from remote   Alt-S:  Send file to remote');
  69.    WRITELN('  Alt-T:  Get translate table        Alt-U:  Screen dump to file');
  70.    WRITELN('  Alt-V   Review captured text       Alt-W:  Wait for call');
  71.    WRITELN('  Alt-X:  Exit PibTerm               Alt-Y:  Set/Reset Timers');
  72.    WRITELN('  Alt-Z:  Get area code');
  73.    WRITELN;
  74.  
  75.    IF FirstTime THEN
  76.       WRITE('Hit any key to start terminal emulation.')
  77.    ELSE
  78.       WRITE('Hit any key to return to terminal emulation.');
  79.  
  80.                                    (* Wait for key to be hit        *)
  81.                                    (* Get rid of the character read *)
  82.  
  83.    READ( Kbd, Ch );                (* Read 2 chars if 1st was ESC   *)
  84.  
  85.    IF ( Ch = CHR( ESC ) ) AND KeyPressed THEN READ( Kbd, Ch );
  86.  
  87.                                    (* Restore previous screen image *)
  88.    Restore_Screen( Saved_Screen );
  89.  
  90.                                    (* Tell host to continue sending *)
  91.    Async_Send( CHR( XON ) );
  92.  
  93.                                    (* Reset global colors           *)
  94.    Reset_Global_Colors;
  95.  
  96. END   (* Display_Help *);
  97.